library(xtable)

bind_cols(Sample = c(rep("HSI", 4), 
                     rep("Lucid", 3), 
                     rep("CloudResearch 1", 4),
                     rep("CloudResearch 2", 2))) %>%
 bind_cols(Outcome = c("Panethnic Identity",
                       "Americanism Beliefs",
                       "Partisan Identity",
                       "Immigration Opinion",
                       "Panethnic Identity",
                       "Trans Attitudes",
                       "Immigration Opinion",
                       "Panethnic Identity",
                       "Efficacy Beliefs",
                       "Minority Representation",
                       "Political Knowledge",
                       "Political Knowledge",
                       "Ideology"),
           Model = c("PCM", "PCM", "PCM", 
                     "NRM", "GPCM", "GPCM",
                     "GPCM", "GPCM","GPCM", "GPCM",
                     "2PL", "2PL", "2PL")) %>%
 bind_cols(lapply(list(hsi_panethnic_lr, 
                       hsi_american_lr, 
                       hsi_party_lr, 
                       hsi_immigration_lr, 
                       lucid_panethnic_lr, 
                       lucid_attp_lr, 
                       lucid_immigration_lr, 
                       cr1_panethnic_lr,
                       cr1_efficacy_lr, 
                       cr1_minrep_lr, 
                       cr1_pkscale_lr,
                       cr2_pkscale_lr,
                       cr2_ideology_lr), function(x) 
                        x$LRtest[3:5]) %>%
            bind_rows()) %>%
 mutate(p = round(p, 3), 
        df = paste(round(df, 1))) %>% 
 xtable() %>% print(., include.rownames = F)
